(substitute-key-definition): Check vectorp, not arrayp.

diff --git a/lisp/subr.el b/lisp/subr.el
index 0b87112c9cd709ed93f7554cf6cec4cab25d3dba..ecc64fcb45089b5017a9bc4027cb7878f673b4e9 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -145,7 +145,7 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
                    (substitute-key-definition olddef newdef keymap
                                               inner-def
                                               prefix1)))))
-       (if (arrayp (car scan))
+       (if (vectorp (car scan))
            (let* ((array (car scan))
                   (len (length array))
                   (i 0))